home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / mailx4 / function.ba_ / function.bin
Encoding:
Text File  |  1996-09-15  |  689 b   |  21 lines
  1. Sub NewMsgWnd (MsgControl As MMsg)
  2.     Dim MsgWnd As New MsgForm
  3.     MsgWnd.MMsg1.MsgID = MsgControl.MsgID
  4.     MsgWnd.szSubject = MsgWnd.MMsg1.Subject
  5.     MsgWnd.szNoteText = MsgWnd.MMsg1.NoteText
  6.     MsgWnd.szTime = MsgWnd.MMsg1.TimeReceived
  7.     MsgWnd.szMsgID = MsgWnd.MMsg1.MsgID
  8.     MsgWnd.MReci1.FetchRecipient = True
  9.     MsgWnd.szOriginator = MsgWnd.MReci1.RecipientName
  10.     MsgWnd.MFile1.FetchFile = True
  11.     FileNum = MsgWnd.MFile1.FileCount
  12.     For Index = 1 To FileNum
  13.         MsgWnd.MFile1.FileNum = Index
  14.         MsgWnd.szFileList.AddItem MsgWnd.MFile1.FileName
  15.     Next
  16.     If FileNum > 0 Then MsgWnd.szFileList.ListIndex = 0
  17.     MsgWnd.Show
  18.     
  19. End Sub
  20.  
  21.